Viết chương trình nhập vào 3 số a, b, c. Kiểm tra chúng có phải là độ dài 3 cạnh của một tam giác không? Nếu có hãy tính chu vi và diện tích tam giác ấy.
Viết chương trình nhập từ bàn phím 3 số a,b,c . Kiểm tra xem 3 số đó có phải 3 cạnh của tam giác không . Nếu là 3 cạnh thì tính chu vi và diện tích của tam giác đó . Ghi kết quả bài toán vào tập bai1.inp
uses crt;
const fi='bai1.inp'
var f1:text;
a,b,c,cv,dt,p:real;
begin
clrscr;
assign(f1,fi); rewrite(f1);
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
write('Nhap c='); readln(c);
if (a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a) then
begin
cv:=a+b+c;
p:=cv/2;
dt:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln(f1,'Chu vi la: ',cv:4:2);
writeln(f1,'Dien tich la: ',dt:4:2);
end
else writeln(f1,'Day khong la ba canh trong mot tam giac');
close(f1);
readln;
end.
Viết chương trình cho phép nhập vào ba số a,b,c kiểm tra xem 3 số đó có phải độ dài của ba cạnh tam giác hay không. Nếu đúng in dòng chữ là độ dài ba canh của tam giác va tính chu vi của tam giác đó. Ngược lại nếu sai in dòng chữ không phải là độ dài 3 cạnh của tam giác
GIÚP MÌNH VỚI MÌNH SẮP THI RỒI
XIN CẢM ƠN
uses crt;
var a,b,c:real;
begin
clrscr;
repeat
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
write('Nhap c='); readln(c);
until (a>0) and (b>0) and (c>0);
if (a+b>c) and (a+c>b) and (b+c>a) then
begin
writeln('La do dai ba canh cua tam giac');
writeln('Chu vi tam giac la: ',a+b+c:4:2);
end
else writeln('Khong phai la do dai 3 canh cua tam giac');
readln;
end.
viết chương trình nhập vào 3 số nguyên dương kiểm tra xem a,b,c có phải là 3 cạnh của tam giác không? nêu là 3 cạnh của tam giác thì diện tích của tam giác tính theo công thức sau S=p*(p-a)*(p-c) với p là 1/2 chu vi cuat tam giác
Viết chương trình nhập vào ba số thực a b c kiểm tra xem ABC có phải chiều dài của ba cạnh tam giác không Nếu không phải thì kiểm tra A B C không phải là chiều dài của ba cạnh tam giác Nếu thỏa mãn là chiều dài 3 cảnh thì tính và thoing báo ra màn hình chu vi, diện tích của 3 tam giác ?
uses crt;
var a,b,c,p,s:real;
begin
clrscr;
readln(a,b,c);
if (a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a) then
begin
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('Chu vi la: ',2*p:4:2);
writeln('Dien tich la: ',s:4:2);
end
else writeln('A B C khong phai la chieu dai ba canh cua mot tam giac');
readln;
end.
-lập chương trình nhập vào độ dài các cạnh của tam giác rồi :
+tính chu vi và diện tích của tam giác
+kiểm tra xem tam giác đó có là tam giác cân hoặc tam giác vuông hay không ?HELP me !!!!!!var a,b,c,s,p: real;
begin
write('Nhap canh thu nhat: '); readln(a);
write('Nhap canh thu hai: '); readln(b);
write('Nhap canh thu ba: '); readln(c);
if (a+b>c) and (b+c>a) and (c+a>b) then
begin
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('Chu vi tam giac la ',2*p:5:2, '(dvdd)');
writeln('Dien tich tam giac la: ',s:5:2, '(dvdt)');
if (a=b) and (b=c) then writeln('Day con la tam giac deu') else
if (a=b) or (b=c) or (c=a) then writeln('Day la tam giac can') else
if (a*a+b*b=c*c) or (b*b+c*c=a*a) or (c*c+a*a=b*b) then writeln('Day la tam giac vuong') else
writeln('Day la tam giac thuong');
if ((a=b) or (b=c) or (c=a)) and ((a*a+b*b=c*c) or (b*b+c*c=a*a) or (c*c+a*a=b*b)) then writeln('Day la tam giac vuong can')
end
else writeln(a:5:2,',',b:5:2,',',c:5:2,' khong la do dai mot tam giac');
end.
Viết chương trình nhập vào 3 giá trị nguyên dương a, b, c. Kiểm tra xem a, b, c có phải là 3 cạnh của tam giác không? Nếu là 3 cạnh của tam giác thì tính diện tích của tam giác theo công thức sau: S =p * (p − a) * (p − b) *(p − c), với p là 1/2 chu vi của tam giác
#include <bits/stdc++.h>
using namespace std;
double a,b,c,p,s;
int main()
{
cin>>a>>b>>c;
p=(a+b+c)/2;
s=sqrt(p*(p-a)*(p-b)*(p-c));
cout<<fixed<<setprecision(2)<<s;
return 0;
}
Viết chương trình nhập vào 3 số a, b, c. Kiểm tra 3 số đó có phải là 3 cạnh của 1 tam giác hay không? Nếu phải, kiểm tra tam giác đó có phải là tam giác đều
uses crt;
var a,b,c:real;
begin
clrscr;
readln(a,b,c);
if (a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a) then
begin
if (a=b) and (b=c) then write('Day la tam giac deu')
else writeln('Day khong la tam giac deu');
end
else writeln('Day khong la ba canh trong mot tam giac');
readln;
end.
viết chuong trình kiểm tra 3 số có phải là 3 cạnh của tam giác hay không . nếu có hãy tính chu vi và diện tích
var a,b,c,p,s:real;
begin
write('Nhap so thu nhat ');readln(a);
write('Nhap so thu hai ');readln(b);
write('Nhap so thu ba ');readln(c);
if (a + b > c) and (a + c > b) and (b + c > a) then
begin
writeln('Ba so vua nhap la ba canh cua tam giac');
p:=a+b+c;
s:=sqrt(p/2*(p/2-a)*(p/2-b)*(p/2-c));
writeln('Chu vi tam giac la ',p:10:2);
write('Dien tich tam giac la ',s:10:2);
end
else write('Ba so vua nhap khong phai ba canh cua tam giac');
readln;
end.
Program TAMGIAC;
Uses crt;
Var a,b,c,s,p: real;
Begin
Clrscr;
Writeln('BAI TOAN TAM GIAC:'); Writeln(' ');
Write('nhap a =');
readln(a);
Write ('nhap b =');
readln(b); Write('nhap c =');
readln(c);
If ((a+b)>c)and((b+c)>a)and((a+c)>b) then
Begin
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
Writeln('Chu vi tam giac:',2*p:4:2);
Writeln('Dien tich tam giac:',s:4:2);
End
Else
Writeln(a,', ', b,', ', c, ' khong phai la ba canh cua tam giac') ;
Readln;
End .
Viết chương trình nhập vào 3 số a, b, c. Kiểm tra 3 số đó có phải là 3 cạnh của 1 tam giác hay không? Nếu phải, kiểm tra tam giác đó có phải là tam giác đều, tam giác cân, tam giác vuông, tam giác vuông cân không?
Hướng dẫn:
Để kiểm tra tam giác: tổng hai cạnh bất kì lớn hơn cạnh còn lại
Để phân loại tam giác:
- Tam giác đều: có 3 cạnh bằng nhau
- Tam giác cân: có 2 cạnh bằng nhau
- Tam giác vuông: áp dụng công thức Pi-ta-go
- Tam giác vuông cân: nó vừa vuông, vừa cân